perm filename EINIT.CMD[1,RWF] blob
sn#871265 filedate 1989-03-15 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
C⊗;
αXDEFINE P⊗↔
α!αxjust 0,0,74⊗↔α!⊗↔αβ⊗↓
αXDEFINE PI⊗↔
α!αxjust 5,0,74⊗↔α!⊗↔αβ⊗↓
αXDEFINE PQ⊗↔
α!αxjust 8,8,66⊗↔α!⊗↔αβ⊗↓
αXDEFINE PQI⊗↔
α!αxjust 13,8,66⊗↔α!⊗↔αβ⊗↓
⊗⊂ Brings in REPLY macro from EINIT[1,3] (if necessary) and executes it.⊃
αxDEFINE R⊗↔
αzR1⊗↔αxSET R1=NULL⊗↔αβ#αzREPLY⊗↔
αβ⊗↓
αxDEFINE R1⊗↔
αxSAY Loading REPLY macro ... ⊗↔
αxEXECUTE EINIT.CMD[1,3](14)⊗↔
αβ⊗↓
αxDEFINE NULL⊗↔
⊗≠
αβ⊗↓
αxDEFINE REPLY⊗↔
αxSAY Please use the macro R instead of REPLY.⊗↔
αβ⊗↓